home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue67 / construc / DrBob42_i.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-01-31  |  2.9 KB  |  90 lines
  1. unit DrBob42_i;
  2.  
  3. {This file was generated on 31 Jan 2001 19:59:58 GMT by version 03.03.03.C1.06}
  4. {of the Inprise VisiBroker idl2pas CORBA IDL compiler.                        }
  5.  
  6. {Please do not edit the contents of this file. You should instead edit and    }
  7. {recompile the original IDL which was located in the file                     }
  8. {D:\usr\bob\magazine\DELPHI.MAG\#67\src\drbob42.idl.                          }
  9.  
  10. {Delphi Pascal unit      : DrBob42_i                                          }
  11. {derived from IDL module : DrBob42                                            }
  12.  
  13.  
  14.  
  15. interface
  16.  
  17. uses
  18.   CORBA;
  19.  
  20. type
  21.  
  22.   AccountType = (normal, saving  );
  23.  
  24. const
  25.   { (Do not edit the values assigned to these constants.) }
  26.  
  27.   ArraySize : Cardinal = 3;
  28.  
  29. type
  30.   Rates = interface;
  31.   NormalAccount = interface;
  32.   SavingAccount = interface;
  33.   NormalOrSavingAccount = interface;
  34.   Accounts = interface;
  35.  
  36.   Money = Single;
  37.  
  38.   AccountArray = array[0..2] of DrBob42_i.NormalOrSavingAccount;
  39.  
  40.   AccountSequence = array of DrBob42_i.NormalOrSavingAccount;
  41.  
  42.   Rates = interface
  43.     ['{62D1C053-22B7-A398-43F2-885026304F70}']
  44.     function  interest_rate : Single;
  45.     procedure SetRate (const rate : Single);
  46.   end;
  47.  
  48.   NormalAccount = interface
  49.     ['{2298B634-3460-7B26-9568-FF10F05485EC}']
  50.     function  _get_balance : DrBob42_i.Money;
  51.     procedure _set_balance (const balance : DrBob42_i.Money);
  52.     property  balance : DrBob42_i.Money read _get_balance write _set_balance;
  53.   end;
  54.  
  55.   SavingAccount = interface
  56.     ['{54F1F80E-46B5-2677-1243-7D558B9AEBA4}']
  57.     function  _get_balance : DrBob42_i.Money;
  58.     procedure _set_balance (const balance : DrBob42_i.Money);
  59.     function  _get_rates : DrBob42_i.Rates;
  60.     procedure _set_rates (const rates : DrBob42_i.Rates);
  61.     property  balance : DrBob42_i.Money read _get_balance write _set_balance;
  62.     property  rates : DrBob42_i.Rates read _get_rates write _set_rates;
  63.   end;
  64.  
  65.   NormalOrSavingAccount = interface
  66.     ['{A16325C4-B2CE-0AFD-6457-C03E73E0D6AE}']
  67.     function  _get_accountN : DrBob42_i.NormalAccount;
  68.     procedure _set_accountN (const accountN : DrBob42_i.NormalAccount);
  69.     function  _get_accountS : DrBob42_i.SavingAccount;
  70.     procedure _set_accountS (const accountS : DrBob42_i.SavingAccount);
  71.     function  _get_discriminator : DrBob42_i.AccountType;
  72.     property  accountN : DrBob42_i.NormalAccount read _get_accountN write _set_accountN;
  73.     property  accountS : DrBob42_i.SavingAccount read _get_accountS write _set_accountS;
  74.     property  _discriminator : DrBob42_i.AccountType read _get_discriminator;
  75.   end;
  76.  
  77.   Accounts = interface
  78.     ['{102F9E5C-C3AF-12A0-C93E-CAEF0E948C66}']
  79.     procedure AccountArrayTest (const Accounts : DrBob42_i.AccountArray);
  80.     procedure AccountSequenceTest (const Accounts : DrBob42_i.AccountSequence);
  81.   end;
  82.  
  83.  
  84. implementation
  85.  
  86.  
  87. initialization
  88.  
  89.  
  90. end.